0 CLR
2 PRINT"[147]"POKE53280,6:POKE53281,6
10 REM FALLING STAR
20 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
30 POKE 54277,4:POKE 54278,12
40 F2=150:Q=50
50 FOR Z=1 TO 50
60 F1=INT(100*RND(1))+10:POKE 54276,23
70 FOR T=1 TO Q:NEXT T
80 POKE 54273,F1:POKE 54287,F2:POKE 54276,20:Q=Q-1:F2=F2-3
90 NEXT Z
100 POKE 54273,30:POKE 54280,0